UC知道VB 实时错误"6" 溢出
来源：百度知道 编辑：UC知道 时间：2024/06/05 09:23:44
程序运行一段时间后，就会提示溢出，我在窗体中加了个timer控件来控制淡入淡出效果，不晓得哪里出了问题：
Private Sub Timer1_Timer()
Dim rtn&
Color = Color + m
If Color <= 0 Then
Form1.Hide
ElseIf Color >= 255 Then
rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
rtn = rtn And Not WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn
Timer1 = False
Else
SetLayeredWindowAttributes Me.hwnd, 0, Color, LWA_ALPHA
End If
End Sub
调试结果为Color = Color + m显示黄色
我已经在通用函数里定义了Dim Color%, m% 了
不知道哪里出了问题,请教高手，解决问题后附加200分。
那句就是有问题啊，我也不知道COLOR是什么数据类型啊，加那个timer就是为了控制窗体的透明度的时间啊，淡入淡出效果啊
Private Sub Timer1_Timer()
Dim rtn&
Color = Color + m
If Color <= 0 Then
Form1.Hide
ElseIf Color >= 255 Then
rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
rtn = rtn And Not WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn
Timer1 = False
Else
SetLayeredWindowAttributes Me.hwnd, 0, Color, LWA_ALPHA
End If
End Sub
调试结果为Color = Color + m显示黄色
我已经在通用函数里定义了Dim Color%, m% 了
不知道哪里出了问题,请教高手，解决问题后附加200分。
那句就是有问题啊，我也不知道COLOR是什么数据类型啊，加那个timer就是为了控制窗体的透明度的时间啊，淡入淡出效果啊
从%号可以看出 Color和m是integer类型的,虽然Color = Color + m这里出错~你用到了API函数~~可是~还是看不出到底是"6"的溢出的源头在那~你应该把全代码全帖出来`最少也得看到Color和M的值在那里来的吧~
不会吧~~？~？
你Color这个变量是什么数据类型?
我估计Color = Color + m这句有问题
真是行，你居然和我做了极像的一个程序出了同样的错误。